home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cgraphix / csqrs.c < prev    next >
Text File  |  1986-05-28  |  494b  |  27 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5.  
  6.  
  7. main()
  8. {
  9.     int i;
  10.  
  11.     InitGraphic();                /* init the system and screen    */
  12.     DefineWorld(1, 0., 0., 1000., 1000.);
  13.     SelectWorld(1);
  14.     SelectWindow(1);
  15.     SetBackground(0);
  16.     DrawBorder();
  17.  
  18.     for (i = 1; i <= 20; i++)
  19.         DrawSquare(500.-25.*i, 500.-25.*i,
  20.             500.+i*25., 500.+i*25., FALSE);
  21.  
  22.     inkey();
  23.  
  24.     LeaveGraphic();
  25. }
  26.  
  27.